Re: line thickness
vincent douce <[email protected]>
| Newsgroups | gmane.editors.texmacs.user |
|---|---|
| Message-ID | <[email protected]> |
but, Hammer, i have put a lot of « contents » in my-init-texmacs
the aim for me is to create shortcuts for tm contents (see below)
i dont really see why i couldn’t create a shortcut for very tiny hline in my-init-texmacs…
;----- raccourcis en mode texte -----
; a z e : petit encadre [en mode maths aussi]
; a z d : dessin libre dans cadre de "petite figure"
; a z t : cadre "tableau" en largeur transparent, deux cases centrees
; a z 0 ---- a z 1 ---- a z 2 : tableaux de variation a 0,1,2 extrema
; a z c : tableau de convexite
; a z p : arbre de probabilites
; a z f : petite figure
; a z i : no-indent
;----- raccourcis en mode maths -----
; a z s : displaystyle
; a z e : petit encadre [en mode texte aussi]
; a z r : systeme
;--------------------------------------------
;----------------- methode ------------------
;--------------------------------------------
; selectionner l'objet voulu dans un document .tm et faire :
; "copier vers TeXmacs Scheme",
; puis ici faire "coller depuis TeXmacs Scheme"
; ou, s'il y a des symboles :
; puis ici faire "coller depuis Verbatim"
; à la place des ***
; tout instruction qui se copie en (math qqch) ne marchera pas
;(kbd-map (:mode in-math?) ("a z d" (insert '
;***
;)))
;----- formatages divers --------
; largeur des traits pour les tableaux
(use-modules (table table-edit))
(cell-set-pen-width "0.25ln")
;--------------------------------------------
;--------- raccourcis en mode texte ---------
;--------------------------------------------
; a faire :
; utiliser option q, y, p, s, h, j, k
; option g donne fi le mettre en
; probleme v v v doit etre reserve pour faire le vecteur v
; pb ce soiravec i i i _
;-------------- mode texte ---------------
(kbd-map (:mode in-text?)
("R R R" (make 'r-code)); lignes de code R
("r r r" (make 'r)); petit bout de code R
("- - - -" )
;-------------- divers en mode texte ---------------
("p p p" (make 'acronym)); Sigle ou acronyme comme PISA ou PEEP.
;("e e e" (insert ' (enumerate-alpha (document (item))))); liste a)
("e e e" (insert-go-to '
(enumerate-alpha (document (item)))
(list 0 0 1)
)); liste a)
("s s s" (insert '(underline "ssi") )); liste a)
)
;------------------------
;---- lettre doubles ----
;------------------------
(delayed (lazy-keyboard-force)
(kbd-map
(:mode in-math?)
;------------ lettres doubles et triples ------------
("^ ^ ^" (make-wide "^")) ; pour notation des angles ok
("^ ^" (insert '(math (rsup "2")))) ; pour carre en exposant
("_ _" (make-wide-under "<wide-bar>")) ; pour souligner
("a a" (make-above))
("a a a" (math (wide "" "<invbreve>"))); notation des arcs de cercle
("b b" (make-below))
("b b var" (make 'binom))
; cc is necessary for arccos
;("d d d" "displaystyle")
;("d d" (math "d"))
("d d" "<mathd>");conflit avec Typinator…
("d d var" (make-wide "<ddot>"));double point dessus
;---------- infinitesimaux dans les integrales -----------------
("d a" "<mathd>a")
("d b" "<mathd>b")
("d f" "<mathd>f")
("d g" "<mathd>g")
("d h" "<mathd>h")
("d p" "<mathd>p")
("d q" "<mathd>q")
("d r" "<mathd>r")
("d s" "<mathd>s")
("d t" "<mathd>t")
("d u" "<mathd>u")
("d v" "<mathd>v")
("d w" "<mathd>w")
("d x" "<mathd>x")
("d y" "<mathd>y")
("d z" "<mathd>z")
("e e" "<mathe>")
("f f" (make-fraction))
("f f var var" (make 'dfrac))
("f f var" (make 'frac*))
("g g" (math (wide "" "~")));marche pas…
("i i i" (math-big-operator "int"))
("a z s var" (insert '(with "math-display" "true" (big "int"))))
("i i" "<mathi>")
("l l" (insert '(math (concat
(below "lim" "x<rightarrow>+<infty>")
" f" (around* "(" "x" ")")
))));limites
("m m" (make 'matrix))
("n n" (make-neg))
("n n var" (make-nabla));a revoir, marche pas
("p p" "<parallel>")
("p p var" (math-big-operator "prod"))
("r r" (make-sqrt))
("r r var" (make-var-sqrt))
("s s" (math-big-operator "sum"))
("t t" (make 'text))
("v v" (make-wide "<vect>")); vvv necessary for often-typed "vector v"
;("v v v" (make-wide "v <vect>")); doesn t work
;("v v v" (math (wide "v" "<vect>"))); doesn t work
;("v v v" (make (wide "v" "<vect>"))); doesn t work
("x x" "<times>")
("x x x" "x <times>")
)
)
;---------------------------------------------------------
;------ jolie police : doubles et triples majuscules -----
;---------------------------------------------------------
(delayed (lazy-keyboard-force)
(kbd-map
(:mode in-math?)
;("A A A" (insert '"<cal-A>"));works fine also
("A A A" "<cal-A>")
("B B B" "<cal-B>")
("C C C" "<cal-C>")
("D D D" "<cal-D>")
("E E E" "<cal-E>")
("F F F" "<cal-F>")
("G G G" "<cal-G>")
("H H H" "<cal-H>")
("I I I" "<cal-I>")
("J J J" "<cal-J>")
("K K K" "<cal-K>")
("L L L" "<cal-L>")
("M M M" "<cal-M>")
("N N N" "<cal-N>")
("O O O" "<cal-O>")
("P P P" "<cal-P>")
("Q Q Q" "<cal-Q>")
("R R R" "<cal-R>")
("S S S" "<cal-S>")
("T T T" "<cal-T>")
("U U U" "<cal-U>")
("V V V" "<cal-V>")
("W W W" "<cal-W>")
("X X X" "<cal-X>")
("Y Y Y" "<cal-Y>")
("Z Z Z" "<cal-Z>")
("A A" "<bbb-A>")
("B B" "<bbb-B>")
("C C" "<bbb-C>")
("D D" "<bbb-D>")
("E E" "<bbb-E>")
("F F" "<bbb-F>")
("G G" "<bbb-G>")
("H H" "<bbb-H>")
("I I" "<bbb-I>")
("J J" "<bbb-J>")
("K K" "<bbb-K>")
("L L" "<bbb-L>")
("M M" "<bbb-M>")
("N N" "<bbb-N>")
("O O" "<bbb-O>")
("P P" "<bbb-P>")
("Q Q" "<bbb-Q>")
("R R" "<bbb-R>")
("S S" "<bbb-S>")
("T T" "<bbb-T>")
("U U" "<bbb-U>")
("V V" "<bbb-V>")
("W W" "<bbb-W>")
("X X" "<bbb-X>")
("Y Y" "<bbb-Y>")
("Z Z" "<bbb-Z>")
)
)
;-------------------------
;---- symboles divers ----
;-------------------------
(delayed (lazy-keyboard-force)
(kbd-map
(:mode in-math?)
("= var" "<Leftrightarrow>"); ---- <=> ---- very very very useful
("= var var" "<Rightarrow>"); ---- => ----
("= var var var" "<equiv>"); ---- modulo ----
("= @ @" "=<infty>"); ---- avoid existing shortcut ----
("= @ /" "=<varnothing>");---- avoid existing shortcut ----
("< -" "<less>-"); ---- avoid existing shortcut----
("< - var" "<leftarrow>")
;("<sim> <sim> -" "<approx> -");cette ligne et la suivante
;("<sim> <sim>" "<approx>");pour contrecarrer l'existant
; marche pas
; ("M-n M-n -" "<approx> -");c est pas la bonne touche : M- c'est cmd
("&" "<cap>"); ---- inter ----not the good one : too tiny
("& . ." "<cap><cdots><cap>")
("& var" "<wedge>")
("& var . ." "<wedge><cdots><wedge>")
("& var var" (insert '(below (big "cap") "")))
("%" "<cup>"); ---- union ---- pas le bon !!!!!
("% . ." "<vee><cup><vee>")
("% var" "<vee>")
("% var . ." "<vee><cdots><vee>")
("% var var var" "%")
("% var var" (insert '(below (big "cup") "")))
("x var" "<times>"); ---- touche X ----
("x var var" "<xi>")
;("/ /" "|" <move|"/"|-9pt|>)
("A var" "<forall>");
("A var var" "<aleph>");
("C var" "<complement>"); le vieux binome C
("E var" "<exists>");
("I var" "<Im>");
("R var" "<Re>");
("T var" "<bot>");perpendiculaire
;faire les jolis <= pour les relation d'ordre
;("space e t" "(make 'infix-and)")
; inutiles grace au raccourci pomme-alt-fleches :
;("space space" (make-space "0.6spc")
;("; ; ;" (make-space "0.6spc"))
;("z z" (make-space "0.6spc"))
)
)
;-----------------------------------
;------ dice and cards ------ only in styx mode !!!!!!!
;-----------------------------------
(kbd-map (:mode in-math?)
("@ 1" "<#2680>");ne marche pas en "roman"
("@ 2" "<#2681>");idem pour les autres
("@ 3" "<#2682>");marche avec "styx"
("@ 4" "<#2683>");pour les autres poss
("@ 5" "<#2684>")
("@ 6" "<#2685>")
("@ k" (insert '(with "color" "red" "<#2665>")));coeur
("@ c" (insert '(with "color" "red" "<#2666>")));carreau
("@ p" "<#2660>");pique
("@ t" "<#2663>");trefle
)
;-----------------------------------
;------ numbers in circles ---------
;-----------------------------------
(kbd-map (:mode in-math?)
("@ 1 var" "<#2460>")
("@ 2 var" "<#2461>")
("@ 3 var" "<#2462>")
("@ 4 var" "<#2463>")
("@ 5 var" "<#2464>")
("@ 6 var" "<#2465>")
("@ 7 var" "<#2466>")
("@ 8 var" "<#2467>")
("@ 9 var" "<#2468>")
)
;-----------------------------------
;------ exports automatised ------
;-----------------------------------
;---- export pdf ----
(define (propose-pdf-name)
(with name (propose-name-buffer)
(if (string-ends? name ".tm")
(string-append (string-drop-right name 3) ".pdf"))))
(define (export-to-proposed-pdf)
(let ((pdf-name (propose-pdf-name)))
(wrapped-print-to-file pdf-name)))
(kbd-map
("M-e p" (export-to-proposed-pdf)))
;---- export html ----
(define (propose-html-name)
(with name (propose-name-buffer)
(if (string-ends? name ".tm")
(string-append (string-drop-right name 3) ".html"))))
(define (export-to-proposed-html)
(let ((html-name (propose-html-name)))
((buffer-exporter "html") html-name));)
)
(kbd-map ("M-e h" (export-to-proposed-html)))
;---- export pdf+html ----
(kbd-map ("M-e a" (export-to-proposed-html) (export-to-proposed-pdf)))
;------------------------------------
;--- ajuster taille image ---
;------------------------------------
;; taille des images
(define (image? t) (tree-is? t 'image))
(define (find-image t)
(car (tree-search (tree-outer t) image?)))
(define (set-image-size t)
(tree-set! t 1 (string->tree "5cm"))
(tree-set! t 2 (string->tree "")))
;(kbd-map ("v v v" (let ((t (find-image (cursor-tree))))
; (set-image-size t))))
;-----------------------------------------------------
;-----------------------------------------------------
;---------------- systemes droites parametriques dans R3
(kbd-map (:mode in-math?)
("a z s" (insert '(choice (tformat (cwith "1" "-1" "1" "1" "cell-halign" "r") (table (row (cell "x") (cell "=") (cell "")) (row (cell "y") (cell "=") (cell "")) (row (cell "z") (cell "=") (cell "")))))))
)
;---------------- systemes ---------------
(kbd-map (:mode in-math?)
("a z r" (insert-go-to '(choice (tformat (table (row (cell ""))))) (list 0 0 0 0 0) ))
)
;------------------- petit cadre ------------
(kbd-map (:mode in-text?) ("a z e" (insert '
(wide-tabular (document (tformat (cwith "1" "1" "1" "-1" "cell-halign" "c") (cwith "1" "1" "1" "-1" "cell-valign" "c") (table (row (cell (document "")) (cell (document "")))))))
)))
;------------------- dessin libre ------------
(kbd-map (:mode in-text?) ("a z d" (insert '
(small-figure (with "gr-mode"
(tuple "hand-edit" "line") "gr-frame"
(tuple "scale" "1cm" (tuple "0.5gw" "0.5gh")) "gr-geometry"
(tuple "geometry" "4cm" "4cm")
(graphics "" (with "point style" "disk" "point-size" "1ln" ))
) "")
)))
;------------------- tableau de variations f'(x) ne s'annulle pas
(kbd-map (:mode in-text?) ("a z 0" (insert '
(math (document (block* (tformat (cwith "1" "-1" "2" "2" "cell-halign" "l") (table (row (cell "x") (cell (concat (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell "")))))))) (row (cell (concat "f" (rprime "'") (around* "(" "x" ")"))) (cell (concat (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell "")))))))) (row (cell "f") (cell (concat (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell "")))))))))))))
)))
;------------------- tableau de variations f'(x) s'annulle une fois
(kbd-map (:mode in-text?) ("a z 1" (insert '
(math (document (block* (tformat (cwith "1" "-1" "2" "2" "cell-halign" "l") (table (row (cell "x") (cell (concat (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell "")))))))) (row (cell (concat "f" (rprime "'") (around* "(" "x" ")"))) (cell (concat (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell "")))))))) (row (cell "f") (cell (concat (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell "")))))))))))))
)))
;------------------- tableau de variations f'(x) s'annulle deux fois
(kbd-map (:mode in-text?) ("a z 2" (insert '
(math (document (block* (tformat (cwith "1" "-1" "2" "2" "cell-halign" "l") (table (row (cell "x") (cell (concat (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell "")))))))) (row (cell (concat "f" (rprime "'") (around* "(" "x" ")"))) (cell (concat (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell "")))))))) (row (cell "f") (cell (concat (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell "")))))))))))))
)))
;------------------- tableau de convexite ---------
(kbd-map (:mode in-text?) ("a z c" (insert '
(math (document (block* (tformat (cwith "1" "-1" "2" "2" "cell-halign" "l") (table (row (cell "x") (cell (concat (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell "-<infty>"))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell "+<infty>")))))))) (row (cell (concat "f" (rprime "''") (around* "(" "x" ")"))) (cell (concat (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell "")))))))) (row (cell "") (cell (concat (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell ""))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell (text (small "concave"))))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell (text (small (with "font-series" "bold" "infl")))))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell (text (small "convexe"))))))) (tabular* (tformat (cwith "1" "1" "1" "1" "cell-width" "1.2cm") (cwith "1" "1" "1" "1" "cell-hmode" "exact") (table (row (cell "")))))))))))))
)))
;----------------------
(kbd-map (:mode in-text?)("a z p" (insert '
(small-figure (with "gr-mode" (tuple "group-edit" "move") "gr-frame" (tuple "scale" "1cm" (tuple "0.310018gw" "0.5gh")) "gr-geometry" (tuple "geometry" "8.40162cm" "4.00112cm" "center") "gr-transformation" (tuple (tuple "0.955336489125606" "0.0" "0.295520206661339" "0.0") (tuple "0.0" "1.0" "0.0" "0.0") (tuple "-0.295520206661339" "0.0" "0.955336489125606" "0.0") (tuple "0.0" "0.0" "0.0" "1.0")) (graphics "" (with "point style" "disk" "point-size" "1ln") (math-at (concat "p" (around* "(" (wide "A" "<wide-bar>") ")") "=") (point "-2.08427670525202" "-1.28643419195661")) (math-at (concat "p" (around* "(" "A<cap>B" ")") "=") (point "3.15497996295806" "1.41055783966133")) (math-at (concat "p" (around* "(" (concat "A<cap>" (wide "B" "<wide-bar>")) ")") "=") (point "3.17283695991533" "0.338983435110464")) (math-at (concat "p" (around* "(" (concat (wide "A" "<wide-bar>") "<cap>" (wide "B" "<wide-bar>")) ")") "=") (point "3.18419114137258" "-1.67486664704326")) (math-at (concat "p" (around* "(" "A" ")") "=") (point "-2.09571812541341" "0.606875515676677")) (math-at (concat "p" (around* "(" (concat (wide "A" "<wide-bar>") "<cap>B") ")") "=") (point "3.19069982801958" "-0.696867971953962")) (math-at (concat "p" (rsub (wide "A" "<wide-bar>")) (around* "(" "B" ")") "=") (point "0.72608434845879" "-0.75044654703003")) (math-at (concat "p" (rsub (wide "A" "<wide-bar>")) (around* "(" (wide "B" "<wide-bar>") ")") "=") (point "0.77966880142876" "-1.76843752612779")) (math-at (concat "p" (rsub (wide "A" "<wide-bar>")) (around* "(" (wide "B" "<wide-bar>") ")") "=") (point "0.73648953948935" "0.182530942584998")) (math-at (concat "p" (rsub "A") (around* "(" "B" ")") "=") (point "0.63679040071438" "1.44626950522556")) (line (point "3.03741" "1.49874") (point "0.476055033734621" "0.856908982669665") (point "3.05526524672576" "0.441857388543458")) (line (point "3.07314" "-0.593977") (point "0.601071570313534" "-1.23265312872073") (point "3.06662587643868" "-1.57198372800635")) (line (point "0.476055" "0.856909") (point "-2.18501124487366" "-0.214661330863871") (point "0.601071570313534" "-1.23265312872073")))) "")
)))
; tableau invisible largeur de paragraphe en deux cases
(kbd-map (:mode in-text?) ("a z t" (insert '
(wide-tabular (document (tformat (cwith "1" "1" "1" "-1" "cell-halign" "c") (cwith "1" "1" "1" "-1" "cell-valign" "c") (table (row (cell (document "")) (cell (document "")))))))
)))
(kbd-map ("a z e" (insert-go-to '
(block* (tformat (table (row (cell ""))))) (list 0 0 0 0 0)
)))
(kbd-map (:mode in-math?) ("a z s" (insert-go-to '(with "math-display" "true" "") '(2 0))))
(kbd-map (:mode in-text?) ("a z f" (insert '
(small-figure "" "")
)))
(kbd-map (:mode in-text?) ("a z i" (insert '
(no-indent)
)))
(kbd-map (:mode in-text?) ("a z b" (insert '
(math (concat (with "color" "dark magenta" "<bbb-B>") (with "color" "dark green" "<bbb-I>") (with "color" "orange" "<bbb-N>") (with "color" "blue" "<bbb-G>") (with "color" "magenta" "<bbb-O>"))
))))
> Le 18 nov. 2023 à 06:18, Hammer Hu <[email protected]> a écrit :
>
> Vincent,
>
> You don't put them in your init file. Things like <really-tiny|<hrule>> are the
> contents of your tm document, not scheme expressions. See
> https://telegra.ph/TeXmacs-DLS-input-11-18 on how to input them by hand.
>
>
> Best,
> Hammer
>
> ---------------------------------------------
> From: vincent douce <[email protected]>
> Sent: 17.11.2023 16:53
> To: texmacs-users <[email protected]>
> Subject: Re: line thickness
>
> Giovanni & Hammer
>
> i can’t manage to concretize your solutions
> i dont understand good how to type your codes
> i am sorry…
>
> what i have found is simply :
> really-tiny | hrule
> but i can’t find out how to write it precisely in my-init-texmacs
> i have tried to « copy to Texmacs Scheme » such a very tiny hline
> and « paste from TeXmacs Scheme » into my-init-temxacs
> but the result does not fit i get something like <really-tiny|<hrule>> that is not the way things are written in my-init-texmacs
>
> i think we’re not far from the solution
>
> Vincent
>
>> Le 16 nov. 2023 à 19:57, Hammer Hu <[email protected]> a écrit :
>>
>> An easier non-solution:
>>
>> <with|font-size|.4pt|<hrule>>
>>
>> Start with backslash, this can be typed within seconds.
>>
>> Best,
>> Hammer
>>
>> ---------------------------------------------
>> From: vincent douce <[email protected]>
>> Sent: 16.11.2023 10:42
>> To: texmacs-users <[email protected]>
>> Subject: Re: line thickness
>>
>> thanks very much both of you Hammer and Giovanni
>>
>>
>>
>> really efficient !
>>
>>
>>
>> i have attached a screenshot :
>>
>> on the left the thickness by default
>>
>> on the middle thicnkess 0.5ln, exactly what i wanted
>>
>>
>>
>> 
>>
>> thought, some questions please :
>>
>> a) on the right side (third screenshot) i have put 0.2ln (and of course
>> recorded my-init-texmacs and left the app and relaunched)
>>
>> but curiously the thickness between 0.5ln (middle picture) and 0.2ln (right
>> picture) seem not to be different : why ?
>>
>> b) is it possible to parameter the same for horizontal lines (Hrule) ?
>>
>> c) the link Giovanni gives leads to 12.4 of
>> <https://www.texmacs.org/tmweb/documents/manuals/texmacs-manual.en.pdf> but i
>> can’t find the document where you found the lines you cote : where did you
>> find them ?
>>
>>
>>
>> Vincent
>>
>>
>>
>>> Le 15 nov. 2023 à 20:34, Hammer Hu
>>> <[[email protected]](mailto:[email protected])> a écrit :
>>>
>>>
>>>
>>>
>>> Several lines behind
>>>
>>> (define cell-current-pen-width "1ln")
>>>
>>> there's a function `cell-set-pen-width'. It should work if you put in init
>>> file:
>>>
>>> (use-modules (table table-edit))
>>> (cell-set-pen-width "0.5ln")
>>>
>>> Best,
>>> Hammer
>>> \---------------------------------------------
>>> From: Giovanni Piredda <[[email protected]](mailto:[email protected])>
>>> Sent: 15.11.2023 19:18
>>> To: [[email protected]](mailto:[email protected])
>>> Subject: Re: line thickness
>>>
>>> I have investigated a bit (following the ideas in
>>> <<https://texmacs.github.io/notes/docs/menu-shortcuts.html>>) and found out
>>> in
>>> progs/table/table-edit.scm the definition
>>>
>>> (define cell-current-pen-width "1ln")
>>>
>>> This is local to the module. I tried it together with the with-module form
>>> shown in <<http://forum.texmacs.cn/t/advanced-user-tip-interacting-with-
>>> scheme->
>>> modules/1497>, as
>>>
>>>
>>>
>>> (with-module (resolve-module '(table table-edit)) (define cell-current-pen-
>>> width "0.5ln"))
>>>
>>>
>>>
>>> It works in a Scheme session, but it does not yet work for me in the init
>>> file. For today I have to stop: perhaps someone has an idea?
>>>
>>> Giovanni
>>>
>>>
>>>
>>> On 15/11/23 16:43, vincent douce wrote:
>>>
>>>
>>>
>>
>>>> hello all
>>>
>>> is it possible in TeXmacs to have finer line that the lines by default ?
>>>
>>>
>>> )
>>>
>>> thanks
>>>
>>>
>>>
>>>
>>> Vincent
>>
>>
>>
>>
>>
>